0 FORT=0TO20:GETA$:NEXT
1 R=R+1:IFR=1THENLOAD"MULTIPLEXOR",8,1
10 PRINT"[147]";
20 POKE53280,0:POKE53281,0
30 PRINT"[147][151]             THE CODE SAVER             "
31 INPUT"PRESS RETURN WHEN CORRECT DISK IS IN    DRIVE[144]";A$
40 INPUT"[151]INPUT NAME TO SAVE CODE  MULTIPLEXOR[157][157][157][157][157][157][157][157][157][157][157][157][157]";N$
50 INPUT"INPUT DEVICE YOU WISH TO SAVE TO  8[157][157][157]";D
60 INPUT"IS THE ABOVE O.K. (Y/N)";A$
61 IFA$="N"THEN30
62 IFD<>1THENOPEN1,D,0,N$:GET#1,A$:IFA$="[199]"THEN70
63 PRINT"FILE EXISTS. DO I REPLACE (Y/N)"
64 INPUTA$
65 IFA$="N"THEN30
70 CLOSE1:SYS57812N$,D
80 POKE193,0:POKE194,192:POKE174,0:POKE175,199
90 SYS62957:S$="MENU":LOAD"RTU",8,1